(defn maxi [lst]
  (loop [l lst cur 0]
    (let [ele (if (= (first l) nil) 0 (first l))]
      (cond
	(empty? l) cur
	(> ele cur) (recur (rest l) ele)))))